home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / multigrd / multigrd.frm < prev    next >
Text File  |  1995-09-06  |  4KB  |  148 lines
  1. VERSION 2.00
  2. Begin Form MultiGrd 
  3.    Caption         =   "Comments To: 71201,2304"
  4.    ClientHeight    =   5340
  5.    ClientLeft      =   1755
  6.    ClientTop       =   1635
  7.    ClientWidth     =   4140
  8.    Height          =   5745
  9.    Left            =   1695
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5340
  12.    ScaleWidth      =   4140
  13.    Top             =   1290
  14.    Width           =   4260
  15.    Begin ListBox List1 
  16.       ForeColor       =   &H00FF0000&
  17.       Height          =   1590
  18.       Left            =   375
  19.       TabIndex        =   4
  20.       Top             =   3060
  21.       Width           =   3285
  22.    End
  23.    Begin CommandButton ShowBtn 
  24.       Caption         =   "Show"
  25.       Height          =   400
  26.       Left            =   405
  27.       TabIndex        =   2
  28.       Top             =   4785
  29.       Width           =   1000
  30.    End
  31.    Begin CommandButton EndBtn 
  32.       Caption         =   "End"
  33.       Height          =   400
  34.       Left            =   2655
  35.       TabIndex        =   1
  36.       Top             =   4770
  37.       Width           =   1000
  38.    End
  39.    Begin Grid Grid1 
  40.       FixedCols       =   0
  41.       FixedRows       =   0
  42.       Height          =   2004
  43.       Left            =   945
  44.       Rows            =   8
  45.       TabIndex        =   0
  46.       Top             =   105
  47.       Width           =   2310
  48.    End
  49.    Begin Label Label1 
  50.       Alignment       =   2  'Center
  51.       BorderStyle     =   1  'Fixed Single
  52.       Caption         =   "Label1"
  53.       Height          =   720
  54.       Left            =   75
  55.       TabIndex        =   3
  56.       Top             =   2190
  57.       Width           =   3945
  58.    End
  59. End
  60. DefInt A-Z
  61.  
  62.  
  63. '   This demo program illustrates how one can select
  64. '   non-adjascent rows of a grid for further processing.
  65.  
  66. '   Running the program will populate the Grid with some data.
  67. '   You can then click on any column of EACH Row that you want
  68. '   to select.  When a row is selected, a ">" symbol appears in
  69. '   the first column.  To de-select a row, click on it again,
  70. '   and the ">" symbol disappears to indicate that the row is
  71. '   de-selected.
  72.  
  73. '   After you have selected all the rows that you want,
  74. '   press the "SHOW" Button.  The Items in Column 1 of the
  75. '   selected rows only will be added to the list box,
  76. '   as proof that the method works.
  77.  
  78. '   Pressing the "END" Button ends the Program.
  79.  
  80. '   Questions and Comments can be addressed to:
  81.  
  82.  
  83. Dim Shared Beers(0 To 7) As String
  84.  
  85. Sub EndBtn_Click ()
  86.     End
  87. End Sub
  88.  
  89. Sub Form_Load ()
  90.     CRLF$ = Chr$(13) + Chr$(10)
  91.     Label1.Visible = False
  92.  
  93. '   Sample Data for Grid
  94.         Beers(0) = "Michelob"
  95.         Beers(1) = "Budweiser"
  96.         Beers(2) = "Bush"
  97.         Beers(3) = "Corona Extra"
  98.         Beers(4) = "Heineken"
  99.         Beers(5) = "Fosters"
  100.         Beers(6) = "Miller"
  101.         Beers(7) = "HomeBrew"
  102. '   Populate the grid
  103.         grid1.Col = 1
  104.         For r = 0 To 7
  105.             grid1.Row = r
  106.             grid1.Text = Beers(r)
  107.         Next r
  108. '   Adjust grid for display
  109.         grid1.ColWidth(0) = 250
  110.         grid1.ColWidth(1) = 2000
  111.         grid1.Width = 2310
  112.         grid1.Height = 1950
  113.         
  114. '   Display Instructions
  115.         Label1.Caption = "Click on one or more rows to select" & CRLF$
  116.         Label1.Caption = Label1.Caption & "Click again to de-select" & CRLF$
  117.         Label1.Caption = Label1.Caption & "Press SHOW Button when done selecting"
  118.         Label1.Visible = True
  119. End Sub
  120.  
  121. Sub Grid1_Click ()
  122.     grid1.Col = 0
  123.     If grid1.Text = ">" Then
  124.         grid1.Text = ""
  125.     Else
  126.         grid1.Text = ">"
  127.     End If
  128. End Sub
  129.  
  130. Sub ShowBtn_Click ()
  131.     list1.Clear     '  Clear the List from possible
  132.                     '  prior usage
  133.  
  134. '   Add Array item to list box if corresponding
  135. '   row in grid was selected
  136.     grid1.Col = 0
  137.     For i = 0 To 7
  138.         grid1.Row = i
  139.         If grid1.Text = ">" Then list1.AddItem Beers(i)
  140.     Next i
  141.  
  142. '   If list is empty, display appropriate message
  143.     If list1.ListCount = 0 Then
  144.         list1.AddItem "No Rows of Grid Were Selected!!"
  145.     End If
  146. End Sub
  147.  
  148.